unit fmiUnit;

interface

uses
  SysUtils, Types, UITypes, Classes, Variants, FMX_Types, FMX_Controls, FMX_Forms,
  FMX_Dialogs,
  acroMultiDD,acroMultiLib,windows,
  acroMultiScreen,
  FMX_Layouts, FMX_ListBox, FMX_Edit, FMX_ExtCtrls, FMX_Effects,
  FMX_TreeView, FMX_Grid, FMX_TabControl, FMX_Colors;

type
  TForm7 = class(TForm)
    CheckBox1: TCheckBox;
    GroupBox1: TGroupBox;
    acroMultiFileDD1: TacroMultiFileDD;
    Button1: TButton;
    ListBox1: TListBox;
    SpeedButton1: TSpeedButton;
    CornerButton1: TCornerButton;
    ComboEdit1: TComboEdit;
    Label1: TLabel;
    Panel1: TPanel;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    StatusBar1: TStatusBar;
    TreeView1: TTreeView;
    TreeViewItem1: TTreeViewItem;
    TreeViewItem2: TTreeViewItem;
    TreeViewItem3: TTreeViewItem;
    Header1: THeader;
    TabControl1: TTabControl;
    TabItem1: TTabItem;
    TabItem2: TTabItem;
    HeaderItem1: THeaderItem;
    HeaderItem2: THeaderItem;
    ComboColorBox1: TComboColorBox;
    ColorComboBox1: TColorComboBox;
    ColorListBox1: TColorListBox;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation

{$R *.lfm}

procedure TForm7.Button1Click(Sender: TObject);
begin
  ScreenStorage.ReplaceScreen;
end;

procedure TForm7.FormCreate(Sender: TObject);
begin
  acroMultiLib.MultiHook(acroMultiFileDD1.DDName,InttoStr(SysUtils.SysLocale.DefaultLCID));
end;

end.
